# (decoded with TMPL 11972)
{----------}
Procedure DoCut;
Begin
	if cur^.text <> nil then begin
		TECut (cur^.text);
		scrapDirty := true;
	end;
End; {DoCut}